home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs13.d81 / afo.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  13KB  |  506 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 15 :
  9. 20 [143] ** TO OUR BEST KNOWLEDGE THIS
  10. 21 [143]    PROGRAM IS FREE FOR
  11. 22 [143]    DUPLICATION IN CANADA.
  12. 23 [143]    IF YOU HAVE CONTARY
  13. 24 [143]    INFORMATION, PLEASE
  14. 25 [143]    CONTACT COMMODORE CANADA AND
  15. 26 [143]    EVERY EFFORT WILL BE MADE TO
  16. 27 [143]    WITHDRAW COPIES OF THIS
  17. 28 [143]    PROGRAM.
  18. 30 :
  19. 35 [143] +++ INPUT SECTION +++
  20. 40 [151]UO,0:UR$[178]"":UI$[178]""
  21. 42 [139]UL[178]0[167]UL[178]80
  22. 45 [153]"  CMDCMD";:[151]UC,0
  23. 50 [161]UI$:[139]UI$[178]""[167]50
  24. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  25. 60 [139]UI$[178][199](20)[167]105
  26. 62 [139] [195](UR$)[178][177]UL[167]50
  27. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  28. 70 UR$[178]UR$[170]UI$
  29. 75 [153]UI$;
  30. 80 [137]50
  31. 85 [143] +++ CHECK FOR HELP REQUEST +++
  32. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  33. 95 [139]UF[178]1[167][141]240
  34. 100 UF[178]0:[153]:[142]
  35. 102 [143] ++ CHECK DELETE ++
  36. 105 [139][195](UR$)[179]1[167]50
  37. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  38. 115 [153]"CMD  CMDCMD";:[137]50
  39. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  40. 125 [139][195](US$)[178]0[167]150
  41. 127 US$[178]US$[170]UX$
  42. 130 [129]US[178]1[164][195](US$)
  43. 135 [139]UI$[178][202](US$,US,1)[167][142]
  44. 140 [130]
  45. 145 UI$[178]"":[142]
  46. 150 [143] ** STANDARD INPUT **
  47. 152 [139][198](UI$)[178]46[167][142]
  48. 155 [139]UI$[178][199](32)[167][142]
  49. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  50. 165 [142]
  51. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  52. 175 [142]
  53. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  54. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  55. 187 [142]
  56. 190 UI$[178]"":[142]
  57. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  58. 197 [141]250
  59. 200 [141]245
  60. 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  61. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  62. 215 UZ[178]1:UV%[178][194](UT)
  63. 216 [137]300
  64. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  65. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  66. 219 [153]"LOAD";
  67. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  68. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  69. 230 [151]U1,U1%
  70. 232 [151]U2,U2%
  71. 233 [151]U4,U4%
  72. 234 [151]U3,U3%[171]1
  73. 235 [137]35
  74. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  75. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  76. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  77. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  78. 255 [142]
  79. 300 [143] ** MENU **
  80. 301 :
  81. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  82. 303 :
  83. 305 [153]"                MENU"
  84. 310 [153]" --------------------------------------"
  85. 315 [153]"       1.   BEGIN   A F O     "
  86. 320 [153]"       2.   STUDENT INSTRUCTIONS"
  87. 325 [153]"       3.   TEACHER INSTRUCTIONS"
  88. 330 [153]"       4.   MODIFICATION OF PROGRAM"
  89. 335 [153]"       5.   QUIT"
  90. 340 [153]" --------------------------------------"
  91. 345 [153]"       PRESS A NUMBER KEY (1-5) ";
  92. 350 UL[178]1:US$[178]"12345":[141]35:[143] INPUT ROUTINE
  93. 351 [139][195](UR$)[177]1[167]300
  94. 352 US$[178]""
  95. 353 [153][200](UD$,23);"            ONE MOMENT PLEASE          "
  96. 355 [145][197](UR$)[141]1000,400,500,600,396
  97. 360 [137]300
  98. 395 [143] ** RE-ENABLE STOP KEY AND END **
  99. 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  100. 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  101. 398 [153]"CONTLOAD":[128]
  102. 399 [141]875:[142]
  103. 400 [143] ** STUDENT INSTRUCTIONS **
  104. 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  105. 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
  106. 455 [141]1070
  107. 460 UIP[178]UP[170]1:[141]850
  108. 475 [153]"     RIGHT$F AT ANY TIME YOU WISH TO RETURN"
  109. 480 [153]" TO THE (null)VAL(null)(null) PRESS THE LEFT$WAIT KEY."
  110. 485 [141]835
  111. 490 [139]UZ[178]1[167][158]UP%:[137]217
  112. 499 [142]
  113. 500 [143] ** TEACHER INSTRUCTIONS **
  114. 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
  115. 502 UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850
  116. 503 [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
  117. 504 [153]"   THIS PROGRAM IS IN THE PUBLIC"
  118. 505 [153]"   DOMAIN.  RIGHT$F THIS IS NOT THE CASE"
  119. 506 [153]"   PLEASE CONTACT:"
  120. 507 [153]"      LENOMMODORE PEEKUSINESS (null)ACHINES"
  121. 508 [153]"          3370 (null)HARMACY ATNVE.
  122. 509 PRINT"          [193]GINCOURT, [207]NTARIO"
  123. 510 PRINT"          [195]ANADA   [205]1[215] 2[203]4"
  124. 511 PRINT"          (416) 499-4292"
  125. 512 UP=1:GOSUB 835:GOSUB 850:
  126. 513 PRINT"     [208]ROGRAM [206]AME: [193] [198] [207]        
  127. 514 [153]"     (null)RITTEN PEEKY  : (null)NKNOWN
  128. 515 PRINT"     [213]PGRADED [194]Y : [202]OHN [199]OSSLING
  129. 516 [153]"     (null)HIS PROGRAM WILL RUN ON ANY
  130. 519 PRINT"         [208][197][212] 64 [195][207][205][208][213][212][197][210]
  131. 520 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
  132. 580 GOSUB835
  133. 590 IFUZ=1THENSYSUP%:GOTO217
  134. 599 RETURN
  135. 600 REM ** PROGRAM MODIFICATION INST **
  136. 601 PRINT"[147]":POKEUT,UL%
  137. 605 UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850
  138. 610 PRINT"     [212]O CHANGE THE NUMBER OF BALLOONS"
  139. 615 PRINT"   EACH PLAYER RECEIVES, CHANGE THE "
  140. 620 PRINT"   VALUE OF [194][193][146] IN LINE 1360 TO ANY "
  141. 625 PRINT"   DESIRED NUMBER BETWEEN 1 AND 99."
  142. 630 PRINT"     [197]XAMPLE:"
  143. 640 PRINT"             1360 [194][193]=15"
  144. 660 GOSUB835
  145. 690 IFUZ=1THENSYSUP%:GOTO217
  146. 699 RETURN
  147. 700 REM ** TO USE 8032 LOAD CBM4032 **
  148. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  149. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  150. 730 [158]UU[170]71
  151. 740 [128]
  152. 797 [143] ** TO USE 8032 LOAD CBM4032 **
  153. 798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  LOAD CBM 4032 PROGRAM"
  154. 799 [158]1093:[128]
  155. 800 [143] ** T I T L E   P A G E **
  156. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  157. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  158. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  159. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  160. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  161. 812 [153]"STEP  WAIT
  162. 814 PRINT" [146]   [146][169]
  163. 816 [153]" WAIT  TAB((null)
  164. 818 PRINT"[223]  [146]
  165. 820 [153]"C O M M O D O R E
  166. 822 PRINT"EDUCATIONAL
  167. 824 [153]"SOFTWARE
  168. 826 REM ** COMMODORE LOGO **
  169. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  170. 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
  171. 830 T1$="":T2$="":T3$="":T4$="":I=0
  172. 832 GOTO300
  173. 835 REM ** SPACE BAR PRESS **
  174. 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  175. 844 GETUI$:IFUI$<>" "THEN844
  176. 846 RETURN
  177. 850 REM ** PAGE DESIGN ROUTINE **
  178. 852 UP=UP+1
  179. 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  180. 860 PRINT" --------------------------------------"
  181. 864 IFUH<>0THEN870
  182. 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  183. 870 UH=0:PRINT"":RETURN
  184. 875 REM ** PLEASE WAIT REMARK **
  185. 880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
  186. 885 RETURN
  187. 900 REM ** SET UP VARIABLES **
  188. 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  189. 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
  190. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  191. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  192. 905 UD$=""
  193. 906 UP$="                                       "
  194. 907 UT$=" [193] [198] [207]        [160][160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  195. 908 RETURN
  196. 910 REM ** SET VARIABLES **
  197. 915 GOSUB900
  198. 916 :
  199. 917 :
  200. 920 REM ** CHECK FOR 8032 **
  201. 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  202. 930 IFPEEK(UB+40)<>96THENGOSUB700
  203. 931 REM ** MEMORY CHECK **
  204. 932 IF FRE(0)>2000THEN937
  205. 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  206. 934 PRINT"MEMORY TO RUN THIS PROGRAM !"
  207. 935 SYSUU+71
  208. 936 END
  209. 937 PRINT"[147]":IFPEEK(50003)=0THEN962
  210. 940 REM ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  211. 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
  212. 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
  213. 943 POKE1104,145:POKE1105,234:POKE1082,234
  214. 945 IFPEEK(50003)<>160THEN955
  215. 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
  216. 955 IFPEEK(50003)<>1THEN990
  217. 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
  218. 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
  219. 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
  220. 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
  221. 965 SYSUU+48:REM DISABLE STOP KEY
  222. 970 GOSUB800:REM TITLE
  223. 980 GOTO300:REM MENU
  224. 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
  225. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
  226. 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,6
  227. 1010 REM ### SOUND ADDED BY STEVE DOUGLAS
  228. 1020 REM ### POKE59467,0 AFTER BREAKING              PROGRAMME
  229. 1030 POKEUM+26699,16:POKEUM+26698,15:P=UM+26696
  230. 1040 POKEP,0
  231. 1050 IFPEEK(50003)<>160THENPOKE59458,62
  232. 1055 GOTO1180
  233. 1060 PRINT"[147]":POKE59468,14
  234. 1070 PRINT"     [212]HIS PROGRAM COMES FROM [202]APAN. "
  235. 1080 PRINT" [212]HE TRANSLATION OF [202]APANESE WORDS IS UP"
  236. 1090 PRINT" TO THE USER."
  237. 1100 PRINT"     [212]HE OBJECT IS TO HIT THE [193][198][207] WITH A"
  238. 1110 PRINT" BALLOON. [212]HE HIT MUST BE DEAD CENTER."
  239. 1115 PRINT"             [195]ONTROL [203]EYS"
  240. 1120 PRINT"           4[146] ---- [205]OVE [204]EFT"
  241. 1125 PRINT"           5[146] ---- [198]IRE!
  242. 1130 [153]"           6WAIT ---- (null)OVE (null)IGHT
  243. 1160 GOSUB835:RETURN
  244. 1170 GETA$:IFA$<>"C"THEN1170
  245. 1180 FORT=1TO5:POKEP,200:NEXTT:POKEP,0
  246. 1190 POKE59468,12
  247. 1200 A$(1)="[157][157] [213][177][201] [157][157][157][157][157] [194]1[146][200] [157][157][157][157][157][157] [169]AFO[223][146] [157][157][157][157][157][157][157] [202][203] [202][203] "
  248. 1210 P$="[215][157][157][157][209] [221][157][157][157][157][176] [146][192][219][157][157][157][157][221] [146][157][165][165][157][157][165][165]"
  249. 1220 O$=" [157][157][157]   [157][157][157][157]    [157][157][157][157]  [157]  [157][157]  "
  250. 1230 E$="[157]   [157][157][157]   [157][157][157][157]     [157][157][157][157][157]     "
  251. 1240 B$="[209][157][221][157][221][157]"
  252. 1250 C$=" [157] [157] [157]"
  253. 1260 X$="[157]*[157]*[157][157][157]*[157]*[157][157][157][157]*[157]*[157]*[157][157][157][157]**"
  254. 1270 V$=""
  255. 1280 W$=V$+""
  256. 1290 U$="[145][157][205] [206][157][157]O[157][157][176][166][174][157][157][214]"
  257. 1300 UE$="[145][157]   [157][157] [157][157]   [157][157] "
  258. 1310 WM$="[209][157][157][176] [146][174][157][157][157][221] [146][221][157][157][205][157][157][206] [205]"
  259. 1320 WN$="[209][157][157][176] [146][174][157][157][157][221] [146][221][157][157][206][157][157][206] [205]"
  260. 1330 VR$="[209][157][157][176] [146][174][157][157][157][221] [146][221][157][157][165][165][157][157][157][206] [165]"
  261. 1340 WE$=" [157][157]   [157][157][157]   [157][157]  [157][157][157]    "
  262. 1350 VL$="[209][157][157][176] [146][174][157][157][157][221] [146][221][157][157][165][165][157][157][165][205]"
  263. 1360 BA=20
  264. 1365 IFBA>99THENBA=20
  265. 1366 IFBA<1THENBA=20
  266. 1367 BA=INT(BA)
  267. 1370 SC=0
  268. 1380 GOSUB2910
  269. 1390 GOSUB3120
  270. 1400 TI$="000000"
  271. 1410 AN=1
  272. 1420 EX=0
  273. 1430 AF=10+INT(RND(1)*20)
  274. 1440 PE=10+INT(RND(1)*30)
  275. 1450 PRINT"[147]"
  276. 1451 PRINTLEFT$(UD$,25)TAB(11)" HELP - PRESS [146]H [146]";
  277. 1460 PRINTV$TAB(PE)P$
  278. 1470 PF=PE
  279. 1480 PRINTW$"                                     "
  280. 1490 LO=INT(RND(1)*3)-1:AF=ABS(AF+LO)
  281. 1500 IF AF>35THENAF=35
  282. 1510 PRINT""SPC(AF)A$(1)
  283. 1520 IFAF<2THENAF=2
  284. 1530 IFRND(1)<ABS(AN)*.05+.1THEN1630
  285. 1540 GETA$:C=VAL(A$)
  286. 1541 IFA$="H"THENRETURN
  287. 1545 C=VAL(A$)
  288. 1550 IFC<>4ANDC<>6ANDC<>5THEN2650
  289. 1560 IFC=5 THEN2020
  290. 1570 PE=PE+(C=4)*4+2
  291. 1580 IFPE<5THENPE=5:GOTO1600
  292. 1590 IF PE>39THENPE=39
  293. 1600 PRINT V$SPC(PF)O$
  294. 1610 PRINT V$SPC(PE)P$
  295. 1620 GOTO2650
  296. 1630 POKEP,15
  297. 1640 PRINTLEFT$(W$,5)SPC(AF)"[221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221]"
  298. 1650 PRINTLEFT$(W$,5)SPC(AF)" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] "
  299. 1660 POKEP,0
  300. 1670 IF AF<>PETHEN1540
  301. 1680 POKEP,50
  302. 1690 TF$=TI$
  303. 1700 PRINTV$SPC(PE-2)X$
  304. 1710 FOR L1=1TO200:NEXT
  305. 1720 POKEP,0
  306. 1730 PRINTV$SPC(PE)O$
  307. 1740 PRINTLEFT$(W$,23)SPC(PE-2)"[215]  [146][192][174][145][157][157][157][157][157][157][157][205]MUGYU![206]";
  308. 1750 POKEP,250
  309. 1760 FORL1=1TO400:NEXT
  310. 1770 POKEP,0
  311. 1780 FORL1=1TO400:NEXT
  312. 1790 SC=SC-1
  313. 1800 PRINT"[157][157][157][157][157][157][157][157]        "
  314. 1810 PRINT""SPC(AF-2)"[202][203] [202][203]"
  315. 1820 L1=150:FORL=5TO22:PRINTLEFT$(W$,L)SPC(AF-2)"     ":L1=L1+5:POKEP,L1
  316. 1830 FORT=1TO30:NEXTT,L
  317. 1840 FORL1=1TO5:POKEP,100+L1:NEXTL1:POKEP,0
  318. 1850 PRINTLEFT$(W$,23)SPC(AF-2)"[215][146]  [192][174]"
  319. 1860 FORL1=1TO500:NEXT:L1=190
  320. 1870 FORL=22TO5STEP-1:PRINTLEFT$(W$,L)SPC(AF-2)"[215][146]  [192][174][157][157][157][157][157]     "
  321. 1880 L1=L1-5:POKEP,L1:FORT=1TO50:NEXTT,L
  322. 1890 POKEP,0
  323. 1900 FORL1=1TO1000:NEXT
  324. 1910 FORL=23TO5STEP-1:PRINTLEFT$(W$,L)SPC(AF-2)"     ":FORL1=1TO30:NEXTL1,L
  325. 1920 POKEP,0
  326. 1930 PRINT""SPC(AF-2)"[202][203] [202][203][157][157][157][157][157][209]  [146][192][174]":FORL1=1TO500:NEXT:L1=100
  327. 1940 FORL=5TO22:PRINTLEFT$(W$,L)SPC(AF-2)"     [157][157][157][157][157][209]  [146][192][174]":L1=L1+5
  328. 1950 POKEP,L1:NEXT
  329. 1960 FORL1=240TO255:POKEP,L1:NEXTL1:FORL1=1TO150:NEXTL1:POKEP,0
  330. 1970 PRINTLEFT$(W$,22)SPC(AF-4)"[205]MUGYU![206]"
  331. 1980 FORL1=1TO1000:NEXT
  332. 1990 PRINT"":PRINT:PRINT:PRINT:GOSUB2990
  333. 2000 TI$=TF$
  334. 2010 GOTO1430
  335. 2020 SO=140
  336. 2030 FORL=19TO2STEP-1
  337. 2040 PRINTLEFT$(V$,L+1)SPC(PE)C$
  338. 2050 PRINTLEFT$(V$,L)SPC(PE)B$
  339. 2060 POKEP,SO:SO=SO-5
  340. 2070 NEXT
  341. 2080 POKEP,0
  342. 2090 PRINTLEFT$(V$,2)SPC(PE)C$
  343. 2100 PRINTV$SPC(PE)"[215][157][221][157][219]"
  344. 2110 BA=BA-1
  345. 2120 IFAF<>PETHEN2650
  346. 2130 FORT=1TO25:NEXTT
  347. 2140 POKEP,50:FORT=1TO25:NEXTT:POKEP,0:FORT=1TO10:NEXTT
  348. 2150 PRINT""SPC(AF)X$
  349. 2160 TF$=TI$
  350. 2170 SO=70
  351. 2180 FORL=1TO200:NEXT
  352. 2190 PRINT""SPC(AF)E$
  353. 2200 F=1+(AF>20)*2
  354. 2210 FORL=3TO19
  355. 2220 PRINTLEFT$(W$,L-1)SPC(AF-F)E$
  356. 2230 PRINTLEFT$(W$,L)SPC(AF)A$(1)
  357. 2240 AF=AF+F:FORT=1TO1
  358. 2250 POKEP,SO
  359. 2260 SO=SO+5
  360. 2270 NEXTT
  361. 2280 NEXTL
  362. 2290 POKEP,255:FORGH=1TO50:NEXTGH:POKEP,0
  363. 2300 IFF>0THENPRINTLEFT$(W$,L-3)SPC(AF-F)" [201][157][157][157]  [171][192][157][157][157][157][174] ":GOTO2320
  364. 2310 PRINTLEFT$(W$,L-3)SPC(AF)"[213] [157][157][157][192][179]  [157][157] [176]"
  365. 2320 IFF>0THENPRINTLEFT$(W$,20)SPC(AF-3)"[176][157][189][157][157][176][157][189][157][157][176]":GOTO2340
  366. 2330 PRINTLEFT$(W$,20)SPC(AF+3)"[174][157][173][174][157][173][174]"
  367. 2340 AF=AF-F
  368. 2350 FORL3=15TO18
  369. 2360 IFL3>15THENPOKEP,(L3-15)*10+60
  370. 2370 AF=AF-F
  371. 2380 PRINTLEFT$(W$,L3)SPC(AF)U$
  372. 2390 FORL4=1TO100:NEXT
  373. 2400 POKEP,0
  374. 2410 FORL4=1TO100:NEXT
  375. 2420 PRINTLEFT$(W$,L3)SPC(AF)UE$
  376. 2430 NEXT
  377. 2440 PRINTLEFT$(W$,21)SPC(AF-F)U$
  378. 2450 POKEP,100:FORT=1TO100:NEXTT:POKEP,0
  379. 2460 FORL3=1TO5
  380. 2470 PRINTLEFT$(W$,16)SPC(AF-9)"[205]$&F&'%(AFO!)[206]"
  381. 2480 FORL4=1TO20:POKEP,INT(255*RND(1))+1:NEXT
  382. 2490 PRINTLEFT$(W$,16)SPC(AF-9)"              "
  383. 2500 FORL4=1TO20:POKEP,INT(128*RND(1))+128:NEXT
  384. 2510 NEXT
  385. 2520 POKEP,0
  386. 2530 PRINTV$SPC(PE)" [157] [157] "
  387. 2540 GOSUB3200
  388. 2550 FORL1=1TO5
  389. 2560 PRINTV$SPC(PE-3)"[221][157][221][157][173][157] [157]  [145][157] [145][157][189][145][157][221][145][157][221][145][157][157][157][157][157][205]BANZAI![206]"
  390. 2570 FORL2=1TO200:NEXT
  391. 2580 PRINTV$SPC(PE-3)" [157] [157][176][157][221][157][221][221][145][157][221][145][157][174][145][157] [145][157] [145][157][157][157][157][157]         "
  392. 2590 FORL2=1TO200:NEXT
  393. 2600 NEXT
  394. 2610 SC=SC+3:AN=AN+1
  395. 2620 TI$=TF$
  396. 2630 A$(1)=LEFT$(A$(1),16)+RIGHT$(STR$(AN),1)+RIGHT$(A$(1),34)
  397. 2640 GOTO 1430
  398. 2650 REM
  399. 2660 PF=PE
  400. 2670 BA$=STR$(BA)
  401. 2680 TH$=RIGHT$(STR$((60-VAL(TI$))*-(VAL(TI$)<100)),2)
  402. 2690 PRINTW$"TIME:"TH$" SCORE:"STR$(SC)" BALLOONS:"BA$;
  403. 2700 IFEX=1THENPRINT"[157]  EX.PLAY ":GOTO2720
  404. 2710 PRINT"         "
  405. 2720 IFBA=0THEN2750
  406. 2730 IFVAL(TI$)>=100THEN2790
  407. 2740 GOTO1490
  408. 2750 PRINTLEFT$(W$,7)TAB(10)"FUUSENGA NAKUNATTA":FORL=1TO1500:NEXT
  409. 2760 PRINT:PRINTTAB(16)"AFO!"
  410. 2770 FORL=1TO1000:NEXT
  411. 2780 GOTO2870
  412. 2790 PRINTW$"0";
  413. 2800 PRINTLEFT$(W$,7)TAB(11)"JIKANGA NAKUNATTA":FORL=1TO1500:NEXT
  414. 2810 IFSC<5OREX=1THEN2760
  415. 2820 PRINT:PRINT:PRINTTAB(6)"E X T E N D E D   P L A Y"
  416. 2830 FORL=1TO2000:NEXT
  417. 2840 TI$="000030"
  418. 2850 EX=1
  419. 2860 GOTO1430
  420. 2870 PRINT:PRINTTAB(10)"ANATA NO TOKUTEN:"SC
  421. 2880 PRINTLEFT$(UD$,25)    "                               ":GOSUB835:RETURN
  422. 2890 GETC$:IFC$="S"THENRUN
  423. 2900 GOTO2890
  424. 2910 PRINT"[147]";
  425. 2920 PRINT" [205]            [176][192][192][178][192][192][174]  [205]
  426. 2930 [153]"TANTANTAN (null)(null)(null)       (null)  (null)  (null) ORTAN^ (null)TO(null)
  427. 2940 PRINT" [192]  [192][219][192]       [221][160][160][221]  [221] [221][205][221]  [214]
  428. 2950 [153]" TAN (null)(null)(null)(null)   TOTO  -TANTAN>TANTAN< (null)TAN(null) (null) (null)
  429. 2960 PRINT"[176][192][174][167]     [206][167] [205] [221]     [221] [221][205][221]
  430. 2970 [153]"(null) (null)THEN    THEN THEN THEN (null)     (null)   OR==^
  431. 2980 PRINT"[173][192][189][214][164][164][164][164] [205][206] [205] [221]     [221]  [192][177][177][177][177][192]
  432. 2990 [153]
  433. 3000 [153]
  434. 3010 [153]"      ORTANTAN^   ORTANTANTANTAN   (null)TAB(TAB((null)
  435. 3020 PRINT"      [194]  [200]   [221]      [167]    [165]
  436. 3030 [153]"      (null)   FN  (null)      THEN    FN
  437. 3040 PRINT"     [167]    [199]  [221]      [167]    [165]
  438. 3050 [153]"     -TANTANTANTAN<  -TANTANTAN   THEN    FN
  439. 3060 PRINT"     [199]    [200]  [221]      [167]    [165]
  440. 3070 [153]"     (null)    (null)  (null)      THEN    FN
  441. 3080 PRINT"     [165]    [167]  [221]      [167]    [165]
  442. 3090 [153]"    THEN      FN (null)       (null)TOTO(null)
  443. 3100 FORL=1TO2000:NEXT
  444. 3110 RETURN
  445. 3120 REM
  446. 3130 PRINT"    [164][186][164][164]
  447. 3140 [153]"    FN    (null)  (null)  SQRTOTOTO  (null)  (null)(null)    (null)
  448. 3150 PRINT"[206]  [208][171][178][192]  [207][208][206][163][208] [167]  [205] [206][163][208]      [206]   [205]
  449. 3160 [153]"FN  (null)TAN(null)TANOR^(null)(null) (null)THEN THENOR(null)^   THEN TANTANTAN (null)    THEN
  450. 3170 PRINT"[205]  [206] '[205][173][189][163][163]  [206] [206][173][189]   [164][206]     [204][164][164][186] [206]
  451. 3180 [129]LL[178]1[164]2000:[130]
  452. 3190 [142]
  453. 3200 [153]V$[166]PE)O$
  454. 3210 [139]F[177]0[167]3480
  455. 3220 [129]L1[178]PE[171]2[164]PE[171]4[169][171]2
  456. 3230 [153][200](W$,19)[166]L1)WN$
  457. 3240 [129]L2[178]1[164]100:[130]
  458. 3250 [153][200](W$,19)[166]L1)WE$
  459. 3260 [153][200](W$,19)[166]L1[171]1)VL$
  460. 3270 [129]L2[178]1[164]100:[130]
  461. 3280 [153][200](W$,19)[166]L1[171]1)WE$
  462. 3290 [130]
  463. 3300 [153][200](W$,19)[166]L1[171]1)VL$
  464. 3310 PE[178]L1[170]1
  465. 3320 [129]L2[178]1[164]500:[130]
  466. 3330 [153]V$[166]L1[171]2)"RNDCMD(null)CMD/CMD "
  467. 3340 [129]L2[178]50[164]100:[151]P,L2:[130]
  468. 3350 [153]V$[166]L1[171]2)" CMD CMD "
  469. 3360 [153]V$[166]L1[171]4)"*(null)(null)"
  470. 3370 [129]L2[178]101[164]150:[151]P,L2:[130]
  471. 3380 [153]V$[166]L1[171]4)"   "
  472. 3390 [153]V$[166]L1[171]5)"*TANTANTAN"
  473. 3400 [129]L2[178]1[164]200:[130]
  474. 3410 [153]V$[166]L1[171]6)" *TANCMDCMDCMD(null)RIGHT$"
  475. 3420 [151]P,255:[129]L2[178]1[164]200:[130]
  476. 3430 [153]V$[166]L1[171]12)"ONON(null)$25(MUGYU)(null)"
  477. 3440 [151]P,0
  478. 3450 [129]L2[178]1[164]1000:[130]
  479. 3460 [153]V$[166]L1[171]6)"    "
  480. 3470 [142]
  481. 3480 [129]L1[178]PE[171]2[164]PE[170]4[169]2
  482. 3490 [153][200](W$,19)[166]L1)WM$
  483. 3500 [129]L2[178]1[164]100:[130]
  484. 3510 [153][200](W$,19)[166]L1)WE$
  485. 3520 [153][200](W$,19)[166]L1[170]1)VR$
  486. 3530 [129]L2[178]1[164]100:[130]
  487. 3540 [153][200](W$,19)[166]L1[170]1)WE$
  488. 3550 [130]
  489. 3560 [153][200](W$,19)[166]L1[170]1)VR$
  490. 3570 PE[178]L1[170]3
  491. 3580 [153]V$[166]L1[170]2)"*CMD(null)CMDEXPCMD "
  492. 3590 [129]L2[178]100[164]150:[151]P,L2:[130]
  493. 3600 [153]V$[166]L1[170]2)" CMD CMD "
  494. 3610 [153]V$[166]L1[170]2)"(null)ON(null)ONRND"
  495. 3620 [129]L2[178]151[164]200:[151]P,L2:[130]
  496. 3630 [153]V$[166]L1[170]2)" ON ON "
  497. 3640 [153]V$[166]L1[170]2)"TANTANTANRND"
  498. 3650 [151]P,255
  499. 3660 [153]V$[166]L1[170]3)"TANRND CMDCMDCMD(null)RIGHT$"
  500. 3670 [153]V$[166]L1[170]2)"ONON(null)$32(MUGYO)(null)"
  501. 3680 [129]L2[178]1[164]100:[130]:[151]P,0
  502. 3690 [129]L2[178]1[164]1000:[130]
  503. 3700 [153]V$[166]L1[170]3)"  ONON CMD "
  504. 3710 [153]V$[166]L1[170]2)"   "
  505. 3720 [142]
  506.